home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak 2 - Disc 2
/
Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso
/
Chat---IRC
/
TURBOIRC.ZIP
/
data1.cab
/
TurboIRC_Scripts
/
ACHANNELSTATUS.txt
< prev
next >
Wrap
Text File
|
1999-05-05
|
1KB
|
36 lines
// Channel Status TurboIRC Script
// Category : Utilities
// Copyright ⌐ Chourdakis Michael , 1998
// This script shows a channel status in a channel
// Call it as an alias /CHANNELSTATUS
// or load it automatically : /_alias /CHANNELSTATUS 0 0 ?.\demos\status.txt
if (GetWindowType(GetCurrentWindowName())!=2)
/AddText ! 12***You must be in a channel to enter /CHANNELSTATUS !
return
endif
string Modes = GetChannelMode($channel)
string Topic = GetChannelTopic($channel)
int Members = GetChannelMpCount($channel)
int qq = GetChannelQpCount($channel)
int oo = GetChannelOpCount($channel)
int vv = GetChannelVpCount($channel)
/display ! 12**** CHANNEL STATUS ( $day/$month/$year , $_hour:$minute:$second )****
/display ! 12Name : 4 $channel
/display ! 12Modes : 4 %Modes%
/display ! 12Topic : 4 %Topic%
/display ! 12Total members : 4 %Members%
if (qq>=1)
/display ! 12Total owners : %qq%
endif
if (oo>=1)
/display ! 12Total hosts : %oo%
endif
if (vv>=1)
/display ! 12Total voices : %vv%
endif